home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / floppy srq (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  46 lines
  1. 10 REM OPEN 1,8,1,"0:FLOPPY SRQ.OBJ"
  2. 12 REM OPEN 2,4
  3. 13 SYS 32768; EINSPRUNG FUER NEUEN PROFIASS
  4. 14 ;
  5. 15 ; **************************
  6. 16 ; * FLOPPY SERVICE REQUEST *
  7. 17 ; *                        *
  8. 18 ; *    VON  UWE GERLACH    *
  9. 19 ; *   TEL.  06151/316205   *
  10. 20 ; *    BZW.  06622/3908    *
  11. 21 ; *                        *
  12. 22 ; *        13.06.86        *
  13. 23 ; **************************
  14. 24 ;
  15. 25 ;
  16. 26 ; UEBER DATA-LINE DES SERIELLEN BUS
  17. 27 ; AN DEN COMPUTER
  18. 30 ;
  19. 31 ;
  20. 100 .TIT "SERVICE REQUEST C64 & VC1541 "
  21. 120 .OPT OO
  22. 125 ;
  23. 130 *=$0500; IM USERPUFFER DER FLOPPY
  24. 140 ;
  25. 500 START LDA $1C00; PORT B DES DC ABFRAGEN
  26. 510 AND #%00010000; LICHTSCHRANKENBIT ISOLIEREN
  27. 520 BEQ AUS
  28. 530 :
  29. 600 EIN LDA $1C00;PORT B DES DC ABFRAGEN
  30. 610 ORA #%00001000; LED-BIT SETZEN
  31. 620 STA $1C00; LED EINSCHALTEN
  32. 650 ;
  33. 660 LDA $1800; PORT B DES BC ABFRAGEN
  34. 670 AND #%11111101; DATA OUT-BIT LOESCHEN
  35. 680 STA $1800; DATA OUT NACH LOW ZIEHEN
  36. 690 JMP START
  37. 695 ;
  38. 700 AUS LDA $1C00;PORT B DES DC ABFRAGEN
  39. 710 AND #%11110111; LED-BIT LOESCHEN
  40. 720 STA $1C00; LED AUSSCHALTEN
  41. 750 ;
  42. 760 LDA $1800; PORT B DES BC ABFRAGEN
  43. 770 ORA #%00000010; DATA OUT-BIT SETZEN
  44. 780 STA $1800; DATA OUT FREIGEBEN
  45. 790 JMP START
  46.